﻿Public Class frmPrincipal

    Dim fichero As Fichero

    Private Sub pcbStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pcbStart.Click
        'Este PictureBox iniciará la partida.
        AñadirJugador.Show()
    End Sub

    Private Sub pcbRanking_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pcbRanking.Click
        'Muestra el Ranking.
        frmRanking.Show()
    End Sub

    Private Sub pcbSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pcbSalir.Click
        'Guarda los datos de la partida y cierra el programa.
        fichero.GuardarEnFichero()
        Me.Close()
    End Sub

    '    'Planta con la boca cerrada.
    'private sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs)Handles
    '    Label1.MouseDown()
    '    Me.Cursor = New Cursor("C:\ruta_del_cursor.extensión")
    'End Sub
    '    'Planta con la boca abierta. Default.
    'private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.EventArgs)Handles
    '    Label1.MouseUp()
    '    Me.Cursor = New Cursor("C:\ruta_del_cursor_2_defautl.extensión")
    '    EndSub()
    'End Sub

    ''Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)
    ''    Me.Cursor = New Cursor("Resources\cartas\Planta raton cerrada - copia girado.png") 'boca cerrada
    ''End Sub

    ''Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
    ''    Me.Cursor = New Cursor("Resources\cartas\Planta raton - copia girado.png") 'boca abierta
    ''End Sub

End Class
